home *** CD-ROM | disk | FTP | other *** search
- object FormRoseShell: TFormRoseShell
- Left = 419
- Top = 97
- Width = 511
- Height = 366
- Caption = 'Rosoft MP3 Encoder'
- Color = clBtnFace
- Constraints.MinHeight = 210
- Constraints.MinWidth = 510
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object panelMain: TPanel
- Left = 0
- Top = 26
- Width = 503
- Height = 295
- Align = alClient
- BevelOuter = bvLowered
- BevelWidth = 3
- TabOrder = 0
- object panelBackground: TPanel
- Left = 3
- Top = 187
- Width = 497
- Height = 105
- Align = alBottom
- BevelOuter = bvLowered
- TabOrder = 0
- object ImgBackground: TImage
- Left = 1
- Top = 1
- Width = 495
- Height = 103
- Align = alClient
- Picture.Data = {<image000.bmp>}
- Stretch = True
- end
- object lblOutputFolder: TLabel
- Left = 96
- Top = 78
- Width = 5
- Height = 13
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object lblFolder: TLabel
- Left = 8
- Top = 78
- Width = 78
- Height = 13
- Caption = 'Output Folder'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object pbHelp: TRSButton
- Left = 365
- Top = 10
- Width = 92
- Height = 25
- Picture.Data = {<image001.bmp>}
- Transparent = True
- OnClick = pbHelpClick
- end
- object pbClose: TRSButton
- Left = 365
- Top = 40
- Width = 92
- Height = 25
- Picture.Data = {<image002.bmp>}
- Transparent = True
- OnClick = pbCloseClick
- end
- object panelButtons: TPanel
- Left = 16
- Top = 8
- Width = 321
- Height = 57
- BevelWidth = 3
- TabOrder = 0
- object ImgButtonsBg: TImage
- Left = 3
- Top = 3
- Width = 315
- Height = 51
- Align = alClient
- Picture.Data = {<image003.bmp>}
- Stretch = True
- end
- object pbConvert: TRSButton
- Left = 9
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Encode th efiles in the track list'
- Picture.Data = {<image004.bmp>}
- Transparent = True
- OnClick = pbConvertClick
- end
- object pbStop: TRSButton
- Left = 53
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Stop the encoding'
- Picture.Data = {<image005.bmp>}
- Transparent = True
- OnClick = pbStopClick
- end
- object pbOPen: TRSButton
- Left = 96
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Add wave files to the track list'
- Picture.Data = {<image006.bmp>}
- Transparent = True
- OnClick = pbFolderClick
- end
- object pbSaveFolder: TRSButton
- Left = 140
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Select Outpur Folder'
- Picture.Data = {<image007.bmp>}
- Transparent = True
- OnClick = pbSaveFolderClick
- end
- object pbLameOptions: TRSButton
- Left = 183
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Options for the Lame Encoder'
- Picture.Data = {<image008.bmp>}
- Transparent = True
- OnClick = pbLameOptionsClick
- end
- object pbRemove: TRSButton
- Left = 226
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Remove the selected file(s) in the track list'
- Picture.Data = {<image009.bmp>}
- Transparent = True
- OnClick = pbRemoveClick
- end
- object pbRemoveAll: TRSButton
- Left = 270
- Top = 6
- Width = 41
- Height = 41
- Hint = 'Clear the track list'
- Picture.Data = {<image010.bmp>}
- Transparent = True
- OnClick = pbRemoveAllClick
- end
- end
- end
- object lbOriginals: TM3uListBox
- Left = 3
- Top = 3
- Width = 497
- Height = 184
- Align = alClient
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- MultiSelect = True
- ParentFont = False
- TabOrder = 1
- OnDblClick = lbOriginalsDblClick
- OnEnter = lbOriginalsEnter
- end
- object lbCreatedFiles: TM3uListBox
- Left = 264
- Top = 56
- Width = 161
- Height = 57
- Color = clGray
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- MultiSelect = True
- ParentFont = False
- TabOrder = 2
- Visible = False
- OnDblClick = lbOriginalsDblClick
- OnEnter = lbOriginalsEnter
- end
- end
- object tbSpeedButtons: TToolBar
- Left = 0
- Top = 0
- Width = 503
- Height = 26
- ButtonHeight = 23
- Color = clBtnFace
- EdgeInner = esNone
- EdgeOuter = esNone
- ParentColor = False
- TabOrder = 1
- object sbNew: TSpeedButton
- Left = 0
- Top = 2
- Width = 23
- Height = 23
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
- 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
- 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- OnClick = pbRemoveAllClick
- end
- object sbLoad: TSpeedButton
- Left = 23
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Read the Table Of Tocens again'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 555555555555555555555555555555555555555FFFFFFFFFF555550000000000
- 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
- B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
- 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
- 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
- 55555575FFF75555555555700007555555555557777555555555555555555555
- 5555555555555555555555555555555555555555555555555555}
- NumGlyphs = 2
- OnClick = pbFolderClick
- end
- object sbFont: TSpeedButton
- Left = 46
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Edit font and color'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333FFF33FFFFF33333300033000
- 00333337773377777333333330333300033333337FF33777F333333330733300
- 0333333377FFF777F33333333700000073333333777777773333333333033000
- 3333333337FF777F333333333307300033333333377F777F3333333333703007
- 33333333377F7773333333333330000333333333337777F33333333333300003
- 33333333337777F3333333333337007333333333337777333333333333330033
- 3333333333377333333333333333033333333333333733333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = miFontClick
- end
- object sbBrowser: TSpeedButton
- Left = 69
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Got to Rosoft Engineerings homepage'
- Flat = True
- Glyph.Data = {
- 06030000424D06030000000000003600000028000000100000000F0000000100
- 180000000000D002000000000000000000000000000000000000408080408080
- 4080807777775555555555555555555555555555555555555555555555555555
- 55555555555555555555408080408080408080777777CCCCCCCCCCCCCCCCCCCC
- CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC555555408080408080
- 408080777777EAEAEAEAEAEAEAEAEAD6E7E7D6E7E7EAEAEAD6E7E7D6E7E7D6E7
- E7D6E7E7CCCCCC555555408080408080CC3333777777FFFFFFF1F1F1F0FBFFF1
- F1F1EAEAEAD6E7E7EAEAEAD6E7E7D6E7E7D6E7E7CCCCCC555555008080CC3333
- 408080040404040404996600996600996600EAEAEAEAEAEAD6E7E7EAEAEAD6E7
- E7D6E7E7CCCCCC5555555F5F5FCC3333663333CC3333FF6633FF6633FF6633FF
- 6633996600EAEAEAEAEAEAD6E7E7EAEAEAD6E7E7CCCCCC555555777777669999
- 993300FF6633FF6633C0C0C0C0C0C0CC3333FF6633996600EAEAEAEAEAEAD6E7
- E7D6E7E7CCCCCC5555554080806699CCCC6633FF6633CC6600F0FBFFF0FBFFF1
- F1F1F0FBFFEAEAEAF1F1F1D6E7E7EAEAEAD6E7E7CCCCCC555555408080777777
- 99CCFFFF6633CC6600CC6600CC6600CC6600CC6600CC6600EAEAEAEAEAEAD6E7
- E7D6E7E7CCCCCC55555540808080000066999999FFFFCC6600F0FBFFF0FBFFCC
- 3333FFCC00CC6600F1F1F1EAEAEAEAEAEAD6E7E7CCCCCC555555408080408080
- 800000999966CCCC99CC3333CC3333FFFF66CC6600F1F1F1F0FBFFF1F1F1EAEA
- EACCCCCC999999555555408080408080408080800000CC6600CC6600CC6600CC
- 6600F0FBFFFF6633F1F1F1F0FBFFCCCCCC999999777777555555408080408080
- 408080777777FFFFFFF0FBFFF0FBFFCC6600CC6600F0FBFFF0FBFFF0FBFF5555
- 55333333333333333333408080408080408080777777FFFFFFF0FBFFF0FBFFF0
- FBFFF0FBFFF0FBFFF0FBFFF0FBFF999999F0FBFF555555408080408080408080
- 408080777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999
- 99555555408080408080}
- OnClick = sbHomepageClick
- end
- object sbMail: TSpeedButton
- Left = 92
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Send an email to Rosoft Engineerings support department'
- Flat = True
- Glyph.Data = {
- 06030000424D060300000000000036000000280000000F0000000F0000000100
- 180000000000D002000000000000000000000000000000000000008080008080
- 008080008080008080BA6829A9723661534956595B7C81840080800080800080
- 80008080008080000000008080008080635F579D6627E97A0CFF7824FF940DF4
- A2388A684E494C4D5D6062B2795B46494A4F5354757A7C0000008A5855835151
- E4994DE98313D28F6AF4A33AFF8D0DFF9F17FFBA63A77F63835151FF96058351
- 51835151595C5E0000008F5D59F8F1E6F8F1E6F8F1E6F8F1E6F5D9ACFE9517FF
- 9805FFAB36FFC684FFB75AFF9605FFF4E9A97F7A595C5E00000097655DFFFFFE
- FFFFFEFFFFFEFFFFFEFFFFFEF5D9ACFE9517FF9E0FFFB75AFFC684FF9605FFF4
- E9A97F7A595C5E0000009F6E62FFFFFEFFFFFEF2F1F1CCCCCCCCCCCCCCCCCCCE
- C8C0F29623FFA82EFF9605FF9605FFF4E9A97F7A595C5E000000AA7868FFFFFE
- FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEED6536ED6536ED6536ED6536ED6536FFF4
- E9A97F7A595C5E000000B4826EFFFFFFFFFFFFF2F1F1CCCCCCCCCCCCCCCCCCCC
- CCCCCCCCCCD6D4D0F4EBDBF2E8D5FFF4E9A97F7A595C5E000000BE8C75FFFFFF
- ED6536ED6536DA5F40C36452C28C80FEFEFDFEFEFDFEFEFD4853886B81CAFFF4
- E9A97F7A595C5E000000C9977BFFFFFFFF8F12FF8F12ED6536BE4B0FF9F2EFFE
- FEFDFEFEFDFEFEFD6197D687ADDEFFF4E9A97F7A595C5E000000D3A281FFFFFF
- FF8F12FEB45AFFA931F99614BF6E33FFFFFFFDFCF9FEFEFDFEFEFDFEFEFDFFF4
- E9A97F7A008080000000DCAA86DCAA86FF8F12DCAA86F4A45EFFC37DEC9E49B0
- 5F33C49E91C49E91C49E91C49E91C49E91A97F7A008080000000008080008080
- 008080008080008080F4A45EFFDAA8F2BD88B56130B35B40CE753F91593D0080
- 80008080008080000000008080008080008080008080008080008080008080FF
- EDBBFFE3B0CC8755944219008080008080008080008080000000008080008080
- 008080008080008080008080008080F4A45EF4A45E0080800080800080800080
- 80008080008080000000}
- OnClick = sbMailClick
- end
- object sbRegister: TSpeedButton
- Left = 115
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Register this program'
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 1800000000000003000000000000000000000000000000000000408080408080
- 4080804080804080804080804080804080804080804080804080804080804080
- 8000000000000000000040808040808040808040808040808040808040808040
- 808040808040808040808040808040808000000000FFFF000000408080408080
- 4080804080804080804080804080804080804080804080804080800000000000
- 0000000000FFFF00000040808040808040808040808040808040808040808040
- 808040808040808040808000000000FFFF00808000FFFF000000408080408080
- 4080804080804080804080804080804080804080800000000000000000000080
- 8000FFFF00000040808040808040808040808040808040808040808040808040
- 808000000000000000FFFF00808000FFFF000000408080408080408080408080
- 40808040808040808040808040808040808000000000FFFF00808000FFFF0000
- 004080804080804080804080807F7F7F00000000000000000040808000000000
- 000000000000808000FFFF0000004080804080804080804080807F7F7F000000
- 00FFFF00FFFF00FFFF00000000000000FFFF00808000FFFF0000004080804080
- 8040808040808040808000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- 808000FFFF00000040808040808040808040808040808040808000000000FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000004080804080804080804080
- 8040808040808040808000000000FFFF00FFFF00000000000000808000FFFF00
- FFFF0000007F7F7F4080804080804080804080804080804080807F7F7F7F7F7F
- 00FFFF00000000000000808000FFFF00FFFF00FFFF0000004080804080804080
- 8040808040808040808040808000000000FFFF00FFFF00808000808000FFFF00
- FFFF00FFFF000000408080408080408080408080408080408080408080408080
- 0000007F7F7F00FFFF00FFFF00FFFF00FFFF0000007F7F7F4080804080804080
- 804080804080804080804080804080804080807F7F7F00000000000000000000
- 00007F7F7F408080408080408080408080408080408080408080}
- OnClick = sbRegisterClick
- end
- object sbHelp: TSpeedButton
- Left = 138
- Top = 2
- Width = 23
- Height = 23
- Hint = 'Open the help file.'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
- 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
- FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
- FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
- FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
- FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
- FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
- 3333333773FFFF77333333333FBFBF3333333333377777333333}
- NumGlyphs = 2
- OnClick = pbHelpClick
- end
- end
- object PCMConverter: TMMPCMConverter
- Input = Trigger
- Output = FRoseEnc
- Quality = cqHigh
- SampleRate = 44100
- BitLength = b16Bit
- Mode = mStereo
- Required = [rpBits, rpChannels, rpSampleRate]
- Left = 128
- Top = 48
- end
- object MMDesigner1: TMMDesigner
- Update = False
- RuntimeHeight = -1
- Left = 24
- Top = 136
- end
- object Trigger: TMMTrigger
- OnOpen = TriggerOpen
- OnStop = TriggerStop
- OnClose = TriggerClose
- Input = SrcFile
- Output = PCMConverter
- BufferSize = 2304
- Left = 80
- Top = 40
- end
- object SrcFile: TMMWaveFile
- Output = Trigger
- Left = 36
- Top = 48
- end
- object OpenDialog: TOpenDialog
- HelpContext = 2100
- DefaultExt = 'WAV'
- Filter = 'Wave Files|*.wav|MP3 Files|*.MP3'
- Options = [ofHideReadOnly, ofShowHelp, ofAllowMultiSelect, ofEnableSizing]
- Title = 'Save Media List'
- Left = 72
- Top = 136
- end
- object HiTimer: TMMHiTimer
- CallBackMode = cmThread
- Enabled = False
- Interval = 100
- OnTimer = HiTimerTimer
- Priority = tpHigher
- Left = 256
- Top = 152
- end
- object FRoseEnc: TMMRoseEnc
- Input = PCMConverter
- Bitrate = 320
- PaddingMode = 0
- HelpContext = 0
- DLLFile = 'rsfhgenc.dll'
- InSamples = 0
- LameMode = 0
- LameEnableVBR = False
- LameVBRQuality = 0
- AllowIntensity = False
- AllowMidside = False
- AllowDownmix = False
- StructVersion = 0
- StructSize = 0
- ReSampleRate = 44100
- SampleRate = 44100
- Mode = 0
- MaxBitrate = 0
- Preset = 0
- MpegVersion = 0
- PsyModel = 0
- Emphasis = 0
- WriteVBRHeader = False
- EnableVBR = False
- VBROn = False
- VBRQuality = 0
- VbrAbr_bps = 0
- NoRes = False
- Left = 176
- Top = 48
- end
- object FBladeEnc: TMMMP3Encoder
- Left = 200
- Top = 136
- end
- object FLameEnc: TMMLameEnc
- DLLFile = 'lame_enc.dll'
- Left = 176
- Top = 176
- end
- object MainMenu1: TMainMenu
- Left = 344
- Top = 144
- object mSession: TMenuItem
- Caption = 'Track &List'
- object miLoad: TMenuItem
- Caption = '&Load'
- OnClick = miLoadClick
- end
- object miSave: TMenuItem
- Caption = '&Save'
- OnClick = miSaveClick
- end
- object miSaveAs: TMenuItem
- Caption = 'Save &As'
- OnClick = miSaveAsClick
- end
- object mExit: TMenuItem
- Caption = 'E&xit'
- OnClick = mExitClick
- end
- end
- object mEdit: TMenuItem
- Caption = '&Edit'
- object miEditM3UInfo: TMenuItem
- Caption = '&Audio File Options'
- OnClick = miEditM3UInfoClick
- end
- object miAddFiles: TMenuItem
- Caption = '&Add'
- ShortCut = 16449
- OnClick = pbFolderClick
- end
- object miRecord: TMenuItem
- Caption = '&Encode'
- ShortCut = 16466
- OnClick = pbConvertClick
- end
- object miRemove: TMenuItem
- Caption = '&Remove'
- ShortCut = 46
- OnClick = miRemoveClick
- end
- object miRemoveAll: TMenuItem
- Caption = '&Remove All'
- OnClick = miRemoveAllClick
- end
- end
- object mOptions: TMenuItem
- Caption = '&Options'
- object miMP3Options: TMenuItem
- Caption = '&MP3 Options'
- ShortCut = 16461
- OnClick = pbLameOptionsClick
- end
- object miM3UOptions: TMenuItem
- Caption = 'M3&U Options'
- ShortCut = 16469
- Visible = False
- OnClick = miM3UOptionsClick
- end
- object miOutputDestination: TMenuItem
- Caption = '&Output Folder'
- ShortCut = 16432
- OnClick = pbSaveFolderClick
- end
- object miFont: TMenuItem
- Caption = '&Font'
- ShortCut = 16454
- OnClick = miFontClick
- end
- end
- object mHelp: TMenuItem
- Caption = '&Help'
- ShortCut = 16449
- object miAbout: TMenuItem
- Caption = '&About'
- OnClick = miAboutClick
- end
- object miIndex: TMenuItem
- Caption = '&Index'
- ShortCut = 16456
- OnClick = pbHelpClick
- end
- object miRegister: TMenuItem
- Caption = 'Register'
- OnClick = miRegisterClick
- end
- end
- end
- object TriggerM2W: TMMTrigger
- OnOpen = TriggerM2WOpen
- OnStop = TriggerM2WStop
- OnClose = TriggerM2WClose
- OnBufferReady = TriggerM2WBufferReady
- Output = PCMConverterM2W
- BufferSize = 2304
- Left = 240
- Top = 48
- end
- object PCMConverterM2W: TMMPCMConverter
- Input = TriggerM2W
- Output = WaveFile
- Quality = cqHigh
- SampleRate = 44100
- BitLength = b16Bit
- Mode = mStereo
- Required = [rpBits, rpChannels, rpSampleRate]
- Left = 304
- Top = 40
- end
- object WaveFile: TMMWaveFile
- Wave.FileMustExist = False
- Input = PCMConverterM2W
- Left = 344
- Top = 48
- end
- object SaveDialog1: TSaveDialog
- Left = 104
- Top = 90
- end
- object SaveSessionDlg: TSaveDialog
- DefaultExt = 'm3u'
- FileName = '*.m3u'
- Filter = 'MP3 List (*.m3u)|*.m3u'
- Left = 128
- Top = 138
- end
- end
-